#!/usr//bin/perl  
#  Script: push_function 
@ names=("Bob", "Dan", "Tom", "Guy"); 
push(@names, Jim, Joseph, Archie); 
print "@names \n"; 
